home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / PasMatIt < prev    next >
Encoding:
Text File  |  1990-09-14  |  650 b   |  27 lines  |  [TEXT/MPS ]
  1. # PasMatIt
  2. #
  3. #    Script to run pasmat on current selection
  4. #
  5.  
  6. Set Exit 0
  7.  
  8. # We only define this if it hasn't been done already
  9. If "{PasMatOptions}" == ""
  10.     # Equivalent Pascal directives are:
  11.     #{[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/0,n+]}
  12.     Set PasMatOptions "-entab -t 4 -a -body -h -n -o 100 -r -rec -u '-#' -n"
  13. End
  14.  
  15. PasMat {PasMatOptions} <"{active}.§" ∂
  16.     >"{ShellDirectory}pasmatText" ∂
  17.     ≥ "{ShellDirectory}pasmatErrs"
  18. Set Err {Status}
  19. If {Err} == 0
  20.     Catenate "{ShellDirectory}pasmatText" > "{active}.§"
  21. Else
  22.     Alert < "{ShellDirectory}pasmatErrs"
  23. End
  24. Delete -y "{ShellDirectory}pasmatErrs" "{ShellDirectory}pasmatErrs" ∑ Dev:Null
  25.  
  26. Set Exit 1
  27.